home *** CD-ROM | disk | FTP | other *** search
/ Merciful 1 / Merciful - Disc 1.iso / cdtools / fileshow.standalone < prev    next >
Text File  |  1995-10-19  |  17KB  |  582 lines
  1. /* CD File READER V 1.0 1995 */
  2.  
  3. /* ------------------------------------------------------------- */
  4.  
  5. CDFileShowVersion="$VER: CDFileShow 1.0 (01-10-95)"
  6.  
  7. /* ------------------------------------------------------------- */
  8.  
  9. PORT=''
  10. signal on syntax
  11. options results
  12.  
  13. /* ------------------------------------------------------------- */
  14.  
  15. IF ~ SHOW('L', "rexxsupport.library") THEN DO
  16.   addlib("CDTools:rexxsupport.library",0,-30,0)
  17. END
  18.  
  19. IF ~ SHOW('L', "rexxreqtools.library") THEN DO
  20.   addlib("CDTools:rexxreqtools.library",0,-30)
  21. END
  22.  
  23. IF ~ SHOW('L', "rexxarplib.library") THEN DO
  24.   addlib("CDTools:rexxarplib.library",0,-30,0)
  25. END
  26.  
  27. /* ------------------------------------------------------------- */
  28.  
  29. /*
  30.     Here we get the file name from the command line
  31. */
  32.  
  33. arg filename
  34.  
  35. /*
  36.     And then we extract the file extension
  37. */
  38.  
  39. ext=''
  40. fname=''
  41. if lastpos(".",filename)~==0 then ext=right(filename,length(filename)-lastpos(".",filename),lastpos(".",filename))
  42. if lastpos("/",filename)~==0 then fname=right(filename,length(filename)-lastpos("/",filename),lastpos("/",filename))
  43. if fname=='' then
  44. do
  45.   if lastpos(":",filename)~==0 then fname=right(filename,length(filename)-lastpos(":",filename),lastpos(":",filename))
  46. end
  47.  
  48. if fname=='' then
  49. do
  50. fname=filename
  51. end
  52.  
  53. call Openfilelist
  54.  
  55. Showtext.v=""
  56.  
  57. /*
  58. ------------------------ Set font ----------------------------------
  59. */
  60.  
  61.  
  62. /*
  63.  -----------------------  Set up gadgets ---------------------------
  64. */
  65.  
  66.   select
  67.     when ext="LHA"   then Gadgets=Smalltitle||'|'||"COPY"||'|'||ext
  68.     when ext="LZX"   then Gadgets=Smalltitle||'|'||"COPY"||'|'||ext
  69.     when ext="DMS"   then Gadgets=SmallTitle||'|'||"COPY"||'|'||ext
  70.     when ext="LZH"   then Gadgets=Smalltitle||'|'||"COPY"||'|'||ext
  71.     when ext="ZIP"   then Gadgets=Smalltitle||'|'||"COPY"||'|'||ext
  72.  
  73.     when filename=='READ.ME' then Gadgets=Smalltitle||'|'||"COPY"||'|'||READ
  74.     when ext="DOC"   then Gadgets=Smalltitle||'|'||"COPY"||'|'||READ
  75.     when ext="TXT"   then Gadgets=Smalltitle||'|'||"COPY"||'|'||READ
  76.  
  77.     when ext="IFF"   then Gadgets=Smalltitle||'|'||"COPY"||'|'||SHOW
  78.     when ext="GIF"   then Gadgets=Smalltitle||'|'||"COPY"||'|'||SHOW
  79.     when ext="PIC"   then Gadgets=Smalltitle||'|'||"COPY"||'|'||SHOW
  80.     when ext="JPG"   then Gadgets=Smalltitle||'|'||"COPY"||'|'||SHOW
  81.     when ext="JPEG"  then Gadgets=Smalltitle||'|'||"COPY"||'|'||SHOW
  82.  
  83.     when ext="GUIDE" then Gadgets=Smalltitle||'|'||"COPY"||'|'||VIEW
  84.  
  85.     otherwise Gadgets=Smalltitle||'|'||"COPY"||'|'||VIEW
  86.   end
  87.  
  88. /*
  89.  -----------------------  Get and show ID.Diz ---------------------------
  90. */
  91.  
  92.   call CheckAborting
  93.  
  94.   SelectedFile=TCTC||filename||TCTC
  95.   if exists('T:FILE_ID.DIZ')then address command 'delete T:FILE_ID.DIZ quiet'
  96.  
  97.     Showtext.v="No FILE_ID.DIZ"||newline||"For "filename
  98.     SELECT
  99.       WHEN ext='DMS' THEN ADDRESS command 'CDTools:dmsdescript > NIL: x T:FILE_ID.diz '||SelectedFile
  100.       WHEN ext='LHA' THEN ADDRESS command 'CDTools:lha x > NIL: '||SelectedFile||' FILE_ID.DIZ T:'
  101.       WHEN ext='LZX' THEN ADDRESS command 'CDTools:lzx x > NIL: '||SelectedFile||' FILE_ID.DIZ T:'
  102.       WHEN ext='LZH' THEN ADDRESS command 'CDTools:lha x > NIL: '||SelectedFile||' FILE_ID.DIZ T:'
  103.       WHEN ext='TXT' THEN ADDRESS command 'CDTools:TxtExtract e > NIL: T:FILE_ID.DIZ '||SelectedFile
  104.       WHEN ext='DOK' THEN ADDRESS command 'CDTools:TxtExtract e > NIL: T:FILE_ID.DIZ '||SelectedFile
  105.       WHEN ext='DOC' THEN ADDRESS command 'CDTools:TxtExtract e > NIL: T:FILE_ID.DIZ '||SelectedFile
  106.       WHEN ext='EXE' THEN ADDRESS command 'CDtools:EXEDescript x > NIL: T:FILE_ID.DIZ '||SelectedFile
  107.       WHEN ext='ZIP' THEN
  108.         do
  109.           olddirectory=pragma('D','T:')
  110.           ADDRESS command 'CDTools:Unzip > NIL: '||SelectedFile||'FILE_ID.DIZ '
  111.           pragma('D',olddirectory)
  112.         end
  113.       WHEN ext='GIF' THEN
  114.         do
  115.           olddirectory=pragma('D','T:')
  116.           ADDRESS command 'CDTools:Gifdesc e > NIL: '||SelectedFile||'FILE_ID.DIZ '
  117.           pragma('D',olddirectory)
  118.         end
  119.       OtherWise
  120.     END
  121.  
  122.     if exists('T:FILE_ID.DIZ')then
  123.     do
  124.     Showtext.v=""
  125.     call open('FileID','T:FILE_ID.diz','r')
  126.     do until eof('FileID')
  127.       Showtext.v=Showtext.v||newline||readln('FileID')
  128.     end
  129.     call close('FileID')
  130.     end
  131.  
  132. /*
  133.  -----------------------  Report selected file ---------------------------
  134. */
  135.  
  136.   call writech CDFileShowWindow," "
  137.   call writech CDFileShowWindow,"Selected file -> "||filename
  138.   do t=length(filename)to 12
  139.     call writech CDFileShowWindow,' '
  140.   end
  141.  
  142. /*
  143.  -----------------------  Perform operation ---------------------------
  144. */
  145.  
  146.   call ChoiceWindow
  147.  
  148. exit
  149. end
  150.  
  151. /* ------------------------------------------------------------- */
  152.  
  153. ChoiceWindow:
  154.  
  155. if ext="EXE"|ext="DOC"|ext="TXT"|ext="IFF"|ext="JPG"|ext="JPEG"|ext="GIF"|ext="PIC"|ext="GUIDE" then
  156.  
  157.   call HandleImmediate
  158.  
  159. else do
  160. actieresult=rtezrequest(Showtext.v,Gadgets,"",TAG2,actieresult)
  161.  
  162. select
  163.   when actieresult=1 then call Nothing
  164.   when actieresult=2 then call Copying
  165.   when actieresult=0&ext="DMS" then call DMS
  166.   when actieresult=0&ext="LHA" then call LHA
  167.   when actieresult=0&ext="LZX" then call LZX
  168.   when actieresult=0&ext="LZH" then call LHA
  169.   when actieresult=0&ext="ZIP" then call ZIP
  170.   when actieresult=0&ext="DOC" then address command 'CDTools:PPMore '||filename
  171.   when actieresult=0&ext="DOK" then address command 'CDTools:PPMore '||filename
  172.   when actieresult=0&ext="TXT" then address command 'CDTools:PPMore '||filename
  173.   when actieresult=0&ext="IFF" then address command 'CDTools:VT '||filename
  174.   when actieresult=0&ext="GIF" then address command 'CDTools:VT '||filename
  175.   when actieresult=0&ext="PIC" then address command 'CDTools:VT '||filename
  176.   when actieresult=0&ext="JPG" then address command 'CDTools:VT '||filename
  177.   when actieresult=0&ext="JPEG" then address command 'CDTools:VT '||filename
  178.   when actieresult=0&ext="GUIDE" then address command 'CDTools:PPGuide '||filename
  179.   when actieresult=0 then call Other
  180. end
  181. end
  182. return
  183.  
  184. /* ------------------------------------------------------------- */
  185.  
  186. HandleImmediate:
  187.  
  188. select
  189.   when ext="EXE"   then address command 'run '||filename
  190.   when ext="DOC"   then address command 'CDTools:PPMore '||filename
  191.   when ext="DOK"   then address command 'CDTools:PPMore '||filename
  192.   when ext="TXT"   then address command 'CDTools:PPMore '||filename
  193.   when ext="IFF"   then address command 'CDTools:VT '||filename
  194.   when ext="GIF"   then address command 'CDTools:VT '||filename
  195.   when ext="PIC"   then address command 'CDTools:VT '||filename
  196.   when ext="JPG"   then address command 'CDTools:VT '||filename
  197.   when ext="JPEG"  then address command 'CDTools:VT '||filename
  198.   when ext="GUIDE" then address command 'CDTools:PPGuide '||filename
  199. end
  200. return
  201.  
  202. /* ------------------------------------------------------------- */
  203.  
  204. CheckAborting:
  205. checkabort
  206. if result=1 then do
  207.   beep
  208.   breakresult=rtezrequest("Exit Program ??","YES|NO","",TagL,breakresult)
  209.   if breakresult=1 then do
  210.     exit
  211.   end
  212. end
  213. return
  214.  
  215. /* ------------------------------------------------------------- */
  216.  
  217. OpenFilelist:
  218.  
  219. PubScr='WorkBench'
  220.  
  221. newline='a'x
  222. TCTC='"'
  223. Newshelltext="CON:100/60/440/61/CDFileShow/SCREEN"||PubScr
  224. Outputtext=" <NIL: >"||TCTC||"CON:20/65/625/141/CDFileShow/SCREEN"||PubScr||TCTC
  225.  
  226. call open CDFileShowWindow,Newshelltext
  227. if ~result then
  228. do
  229.   say "Open failed .... !!!!"
  230.   exit
  231. end
  232.  
  233. Tag0="rt_reqpos=reqpos_centerscr "
  234. TagL="rt_reqpos=reqpos_topleftscr rt_leftoffset=460 rt_topoffset=11 "
  235. TagR="rt_reqpos=reqpos_topleftscr rt_topoffset=11 "
  236. Tag2=Tag0||"rt_pubscrname="||PubScr
  237. Tag3=TagL||"rt_pubscrname="||PubScr
  238. Tag4=TagR||"rt_pubscrname="||PubScr
  239. SmallTitle=" SKIP"
  240.  
  241. return
  242.  
  243. /* ------------------------------------------------------------- */
  244.  
  245. syntax:
  246. if rc<49 then ErrorText="Syntax Error" rc"," errortext(rc)"in line" sigl"."
  247. if rc ~=2 then rtezrequest(Errortext,,"",Tag0)
  248. say errortext
  249. exit
  250.  
  251. /* ------------------------------------------------------------- */
  252.  
  253. SearchFilename:
  254. Showtext.w="No FILE_ID.DIZ"
  255. if SearchFile.w=list.z then
  256. do
  257.   s=z+1
  258.   Showtext.w=newline
  259.   Showtext.w=Showtext.w||list.x||newline
  260. end
  261. return
  262.  
  263. /* ------------------------------------------------------------- */
  264.  
  265. Nothing:
  266. call writeln CDFileShowWindow," >read file...ready<"
  267. return
  268.  
  269. /* ------------------------------------------------------------- */
  270.  
  271. Skipping:
  272. return
  273.  
  274. /* ------------------------------------------------------------- */
  275.  
  276. Copying:
  277.  
  278. call DirRequest
  279.  
  280. copytext="Copy "||filename||" to "||Directory||"....?"||newline
  281. copyGadgets="COPY to "||Directory||"|"Smalltitle
  282.  
  283. copresult=rtezrequest(copytext,copyGadgets,"",Tag2,copresult)
  284.  
  285. if copresult=1 then
  286. do
  287.   call writeln CDFileShowWindow," ->Copying to "||Directory
  288.   address command
  289.   'copy '||filename||' '||Directory
  290. end
  291.  
  292. if copresult=0 then call writeln CDFileShowWindow," --Didn't Copy or Move anything"
  293. return
  294.  
  295. /* ------------------------------------------------------------- */
  296.  
  297. DMS:
  298. dmstext="Where do YOU want DMS to ?"||newline||SelectedFile
  299. dmsGadgets="DF0|RAD|DF1|DF2|FF0|FF1|FF2|FF3|FF4|FF5|FF6|FF7|FF8|FF9|"Smalltitle
  300.  
  301. dmsresult=rtezrequest(dmstext,dmsGadgets,"",Tag2,dmsresult)
  302.  
  303. if dmsresult=1 then do
  304.   call writeln CDFileShowWindow," ->DMS to DF0:"
  305.   address command
  306.   'CDTools:dms write' SelectedFile "to DF0: NOTEXT NOVERIFY NOPAUSE"||Outputtext
  307. end
  308.  
  309. if dmsresult=2 then do
  310.   call writeln CDFileShowWindow," ->DMS to RAD:"
  311.   address command
  312.   if SHOWLIST('H','RAD')
  313.   then call writeln CDFileShowWindow," RAD: already mounted"
  314.   else do
  315.     call writeln CDFileShowWindow," Mounting RAD:"
  316.     'mount RAD: from CDTools:FileShowRAD'
  317.   end
  318.   'CDTools:dms write' SelectedFile "to RAD: NOTEXT NOPAUSE"||Outputtext
  319.   ScanDirFlag="RAD:"
  320. end
  321.  
  322. if dmsresult=3 then do
  323.   call writeln CDFileShowWindow," ->DMS to DF1:"
  324.   address command
  325.   'CDTools:dms write' SelectedFile "to DF1: NOTEXT NOVERIFY NOPAUSE"||Outputtext
  326. end
  327.  
  328. if dmsresult=4 then do
  329.   call writeln CDFileShowWindow," ->DMS to DF2:"
  330.   address command
  331.   'CDTools:dms write' SelectedFile "to DF2: NOTEXT NOVERIFY NOPAUSE"||Outputtext
  332. end
  333.  
  334. if dmsresult=5 then do
  335.   call writeln CDFileShowWindow," ->DMS to FF0:"
  336.   address command
  337.   if SHOWLIST('H','FF0')
  338.   then call writeln CDFileShowWindow," FF0: already mounted"
  339.   else do
  340.     call writeln CDFileShowWindow," Mounting FF0:"
  341.     'mount FF0: FROM CDTools:FileShowFF0'
  342.   end
  343.   'CDTools:dms write' SelectedFile "to FF0: NOTEXT NOVERIFY NOPAUSE"||Outputtext
  344.   ScanDirFlag="FF0:"
  345. end
  346.  
  347. if dmsresult=6 then do
  348.   call writeln CDFileShowWindow," ->DMS to FF1:"
  349.   address command
  350.   if SHOWLIST('H','FF1')
  351.   then call writeln CDFileShowWindow," FF1: already mounted"
  352.   else do
  353.     call writeln CDFileShowWindow," Mounting FF1:"
  354.     'mount FF1: FROM CDTools:FileShowFF1'
  355.   end
  356.   'CDTools:dms write' SelectedFile "to FF1: NOTEXT NOVERIFY NOPAUSE"||Outputtext
  357.   ScanDirFlag="FF1:"
  358. end
  359.  
  360. if dmsresult=7 then do
  361.   call writeln CDFileShowWindow," ->DMS to FF2:"
  362.   address command
  363.   if SHOWLIST('H','FF2')
  364.   then call writeln CDFileShowWindow," FF2: already mounted"
  365.   else do
  366.     call writeln CDFileShowWindow," Mounting FF2:"
  367.     'mount FF2: FROM CDTools:FileShowFF2'
  368.   end
  369.   'CDTools:dms write' SelectedFile "to FF2: NOTEXT NOVERIFY NOPAUSE"||Outputtext
  370.   ScanDirFlag="FF2:"
  371. end
  372.  
  373. if dmsresult=8 then do
  374.   call writeln CDFileShowWindow," ->DMS to FF3:"
  375.   address command
  376.   if SHOWLIST('H','FF3')
  377.   then call writeln CDFileShowWindow," FF3: already mounted"
  378.   else do
  379.     call writeln CDFileShowWindow," Mounting FF3:"
  380.     'mount FF3: FROM CDTools:FileShowFF3'
  381.   end
  382.   'CDTools:dms write' SelectedFile "to FF3: NOTEXT NOVERIFY NOPAUSE"||Outputtext
  383.   ScanDirFlag="FF3:"
  384. end
  385.  
  386. if dmsresult=9 then do
  387.   call writeln CDFileShowWindow," ->DMS to FF4:"
  388.   address command
  389.   if SHOWLIST('H','FF4')
  390.   then call writeln CDFileShowWindow," FF4: already mounted"
  391.   else do
  392.     call writeln CDFileShowWindow," Mounting FF4:"
  393.     'mount FF4: FROM CDTools:FileShowFF4'
  394.   end
  395.   'CDTools:dms write' SelectedFile "to FF4: NOTEXT NOVERIFY NOPAUSE"||Outputtext
  396.   ScanDirFlag="FF4:"
  397. end
  398.  
  399. if dmsresult=10 then do
  400.   call writeln CDFileShowWindow," ->DMS to FF5:"
  401.   address command
  402.   if SHOWLIST('H','FF5')
  403.   then call writeln CDFileShowWindow," FF5: already mounted"
  404.   else do
  405.     call writeln CDFileShowWindow," Mounting FF5:"
  406.     'mount FF5: FROM CDTools:FileShowFF5'
  407.   end
  408.   'CDTools:dms write' SelectedFile "to FF5: NOTEXT NOVERIFY NOPAUSE"||Outputtext
  409.   ScanDirFlag="FF5:"
  410. end
  411.  
  412. if dmsresult=11 then do
  413.   call writeln CDFileShowWindow," ->DMS to FF6:"
  414.   address command
  415.   if SHOWLIST('H','FF6')
  416.   then call writeln CDFileShowWindow," FF6: already mounted"
  417.   else do
  418.     call writeln CDFileShowWindow," Mounting FF6:"
  419.     'mount FF6: FROM CDTools:FileShowFF6'
  420.   end
  421.   'CDTools:dms write' SelectedFile "to FF6: NOTEXT NOVERIFY NOPAUSE"||Outputtext
  422.   ScanDirFlag="FF6:"
  423. end
  424.  
  425. if dmsresult=12 then do
  426.   call writeln CDFileShowWindow," ->DMS to FF7:"
  427.   address command
  428.   if SHOWLIST('H','FF7')
  429.   then call writeln CDFileShowWindow," FF7: already mounted"
  430.   else do
  431.     call writeln CDFileShowWindow," Mounting FF7:"
  432.     'mount FF7: FROM CDTools:FileShowFF7'
  433.   end
  434.   'CDTools:dms write' SelectedFile "to FF7: NOTEXT NOVERIFY NOPAUSE"||Outputtext
  435.   ScanDirFlag="FF7:"
  436. end
  437.  
  438. if dmsresult=13 then do
  439.   call writeln CDFileShowWindow," ->DMS to FF8:"
  440.   address command
  441.   if SHOWLIST('H','FF8')
  442.   then call writeln CDFileShowWindow," FF8: already mounted"
  443.   else do
  444.     call writeln CDFileShowWindow," Mounting FF8:"
  445.     'mount FF8: FROM CDTools:FileShowFF8'
  446.   end
  447.   'CDTools:dms write' SelectedFile "to FF8: NOTEXT NOVERIFY NOPAUSE"||Outputtext
  448.   ScanDirFlag="FF8:"
  449. end
  450.  
  451. if dmsresult=14 then do
  452.   call writeln CDFileShowWindow," ->DMS to FF9:"
  453.   address command
  454.   if SHOWLIST('H','FF9')
  455.   then call writeln CDFileShowWindow," FF9: already mounted"
  456.   else do
  457.     call writeln CDFileShowWindow," Mounting FF9:"
  458.     'mount FF9: FROM CDTools:FileShowFF9'
  459.   end
  460.   'CDTools:dms write' SelectedFile "to FF9: NOTEXT NOVERIFY NOPAUSE"||Outputtext
  461.   ScanDirFlag="FF9:"
  462. end
  463.  
  464. if dmsresult=0 then call writeln CDFileShowWindow," --Didn't Dms anything"
  465. if rc ~=0 then do
  466.   call writeln CDFileShowWindow," DMS ERROR  -> "||result
  467. end
  468.  
  469. return
  470.  
  471. /* ------------------------------------------------------------- */
  472.  
  473. LHA:
  474.  
  475. call DirRequest
  476. lhatext="Extract "ext" "||newline||SelectedFile
  477. lhaGadgets=ext||' to '||Directory"|"Smalltitle
  478.  
  479. lharesult=rtezrequest(lhatext,lhaGadgets,"",Tag2,lharesult)
  480. if lharesult=1 then do
  481.   call writeln CDFileShowWindow," "||ext||" to "||Directory
  482.   address command
  483.   'CDtools:lha e '||SelectedFile||' '||Directory||' '||Outputtext
  484. end
  485. if lharesult=0 then call writeln CDFileShowWindow," --Didn't "ext" anything"
  486. return
  487.  
  488. /* ------------------------------------------------------------- */
  489.  
  490. LZX:
  491.  
  492. call DirRequest
  493.  
  494. lzxtext="Extract "ext" "||newline||SelectedFile
  495. lzxGadgets=ext||' to '||Directory"|"Smalltitle
  496. lzxresult=rtezrequest(lzxtext,lzxGadgets,"",Tag2,lzxresult)
  497. if lzxresult=1 then do
  498.   call writeln CDFileShowWindow," "||ext||" to "||Directory
  499.   address command
  500.   'CDtools:lzx -x x '||SelectedFile||' '||Directory||' '||Outputtext
  501. end
  502. if lzxresult=0 then call writeln CDFileShowWindow," --Didn't "ext" anything"
  503. return
  504.  
  505. /* ------------------------------------------------------------- */
  506.  
  507. ZIP:
  508.  
  509. call DirRequest
  510.  
  511. ziptext="Extract "ext" "||newline||SelectedFile
  512. zipGadgets=ext||' to '||Directory"|"Smalltitle
  513. zipresult=rtezrequest(ziptext,zipGadgets,"",Tag2,zipresult)
  514. if zipresult=1 then do
  515.   call writeln CDFileShowWindow," "||ext||" to "||Directory
  516.   address command
  517.   olddirectory=pragma('D','RAM:')
  518.   'CDtools:unzip '||SelectedFile||' '||Directory||' '||Outputtext
  519.   address
  520.   pragma('D',olddirectory)
  521.   ScanDirFlag="RAM:"
  522. end
  523. if zipresult=0 then call writeln CDFileShowWindow," --Didn't "ext" anything"
  524. return
  525.  
  526. /* ------------------------------------------------------------- */
  527.  
  528. MySetFont:
  529.  
  530. myfont.Name = 'topaz.font'
  531. myfont.Size = 8
  532. myfont.XSize = 8
  533. myfont.Style = 0
  534. myfont.Flags = 0
  535.  
  536.  
  537. myport.Name = address()
  538.  
  539.  
  540. pig=SetFont(myport.Name,myfont.Name,myfont.Size,myfont.Style,myfont.Flags,myfont.XSize)
  541.  
  542. return
  543.  
  544. /* --------------------------------------------------------------*/
  545.  
  546. DirRequest:
  547.  
  548.  Directory=TCTC||getfile(50,50,,,"Please select destination directory","Workbench",NOFILES)||TCTC
  549.  
  550. return
  551.  
  552. /* ------------------------------------------------------------- */
  553.  
  554. FileRequest:
  555.  
  556.  File=TCTC||getfile(50,50,,,"Please select file")||TCTC
  557.  
  558. return
  559.  
  560. /* ------------------------------------------------------------- */
  561.  
  562. Other:
  563.  
  564. othertext="PLEASE SELECT:"||newline||SelectedFile
  565. otherGadgets="READ IT|EXECUTE|"BACK
  566. othresult=rtezrequest(othertext,otherGadgets,"",Tag2,othresult)
  567. if othresult=1 then do
  568.   call writeln CDFileShowWindow," ->Read the file "
  569.   address command
  570.   'CDTools:PPMore '||filename
  571. end
  572. if othresult=2 then do
  573.   call writeln CDFileShowWindow," ->Executing the file "
  574.   address command
  575.   'execute '||filename
  576. end
  577. if othresult=0 then call writeln CDFileShowWindow," --Didn't know what to do with"
  578. return
  579.  
  580. /* End --------------------------------------------------------- */
  581.  
  582.